home *** CD-ROM | disk | FTP | other *** search
Text File | 2005-11-17 | 41.0 KB | 1,533 lines |
- object fSendToMobile: TfSendToMobile
- Left = 193
- Top = 39
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Send to Mobile'
- ClientHeight = 573
- ClientWidth = 748
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnActivate = FormActivate
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object BevelB: TbsSkinBevel
- Left = 0
- Top = 526
- Width = 748
- Height = 2
- Align = alBottom
- Shape = bsBottomLine
- SkinDataName = 'bevel'
- DividerMode = False
- end
- object cntCaption: TAMContainer
- Left = 0
- Top = 0
- Width = 748
- Height = 65
- Align = alTop
- Color = clSilver
- DoubleBuffered = True
- object labelBold: TLabel
- Left = 17
- Top = 12
- Width = 83
- Height = 13
- Caption = 'Send to Mobile'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object labelInfo: TLabel
- Left = 31
- Top = 28
- Width = 610
- Height = 34
- AutoSize = False
- Caption =
- 'Select the part of the image you want to send to mobile phone an' +
- 'd then Click on the Send button'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object BevelT: TbsSkinBevel
- Left = 0
- Top = 63
- Width = 748
- Height = 2
- Align = alBottom
- Shape = bsBottomLine
- SkinDataName = 'bevel'
- DividerMode = False
- end
- end
- object cntBottom: TAMContainer
- Left = 0
- Top = 528
- Width = 748
- Height = 45
- Align = alBottom
- Color = clSilver
- OnResize = cntBottomResize
- DoubleBuffered = False
- object AdvICO: TImage
- Left = 370
- Top = 14
- Width = 17
- Height = 16
- Transparent = True
- end
- object LearnMoreLabel: TLabel
- Left = 394
- Top = 15
- Width = 66
- Height = 13
- Alignment = taRightJustify
- Caption = 'Learn More...'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 2460926
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- ParentFont = False
- Transparent = True
- OnClick = LearnMoreLabelClick
- end
- object bSend: TbsSkinButton
- Left = 473
- Top = 9
- Width = 75
- Height = 24
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AllowAllUp = False
- TabStop = True
- CanFocused = True
- Down = False
- GroupIndex = 0
- Caption = 'Send'
- NumGlyphs = 2
- Spacing = 1
- OnClick = bSendClick
- end
- object bClose: TbsSkinButton
- Left = 636
- Top = 9
- Width = 75
- Height = 24
- TabOrder = 1
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AllowAllUp = False
- TabStop = True
- CanFocused = True
- Down = False
- GroupIndex = 0
- Caption = 'Close'
- NumGlyphs = 2
- Spacing = 1
- Cancel = True
- ModalResult = 2
- end
- object bUndo: TbsSkinButton
- Left = 555
- Top = 9
- Width = 75
- Height = 24
- TabOrder = 2
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AllowAllUp = False
- TabStop = True
- CanFocused = True
- Down = False
- GroupIndex = 0
- Caption = 'Undo'
- NumGlyphs = 2
- Spacing = 1
- Cancel = True
- ModalResult = 2
- OnClick = bUndoClick
- end
- object cntNextPrev: TAMContainer
- Left = 7
- Top = 4
- Width = 132
- Height = 41
- Color = 14474975
- DoubleBuffered = False
- object lPicPos: TLabel
- Left = 39
- Top = 12
- Width = 53
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = '1 of 1'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- Transparent = True
- WordWrap = True
- end
- object bNext: TbsSkinButton
- Left = 95
- Top = 8
- Width = 32
- Height = 24
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AllowAllUp = False
- TabStop = True
- CanFocused = False
- Down = False
- GroupIndex = 0
- Caption = '>'
- NumGlyphs = 2
- Spacing = 1
- Cancel = True
- OnClick = bNextClick
- end
- object bPrev: TbsSkinButton
- Left = 6
- Top = 8
- Width = 30
- Height = 24
- TabOrder = 1
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AllowAllUp = False
- TabStop = True
- CanFocused = False
- Down = False
- GroupIndex = 0
- Caption = '<'
- NumGlyphs = 2
- Spacing = 1
- Cancel = True
- OnClick = bPrevClick
- end
- end
- end
- object cntParams: TAMContainer
- Left = 0
- Top = 65
- Width = 246
- Height = 461
- Align = alLeft
- DoubleBuffered = False
- object BevelA1: TbsSkinBevel
- Left = 11
- Top = 17
- Width = 222
- Height = 169
- Shape = bsFrame
- SkinDataName = 'bevel'
- DividerMode = False
- end
- object lWidth: TLabel
- Left = 14
- Top = 44
- Width = 63
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Width:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object lHeight: TLabel
- Left = 14
- Top = 72
- Width = 63
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Height:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object lPresets: TLabel
- Left = 37
- Top = 11
- Width = 40
- Height = 13
- Alignment = taRightJustify
- Caption = 'Presets:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object bSavePreset: TbsSkinSpeedButton
- Left = 164
- Top = 39
- Width = 24
- Height = 22
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'toolbutton'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 17
- DefaultFont.Name = 'Wingdings'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = False
- RepeatMode = False
- RepeatInterval = 100
- Transparent = False
- Flat = False
- AllowAllUp = False
- Down = False
- GroupIndex = 0
- Caption = '<'
- NumGlyphs = 2
- Spacing = 0
- OnClick = bSavePresetClick
- end
- object bDeletePreset: TbsSkinSpeedButton
- Left = 191
- Top = 39
- Width = 24
- Height = 22
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'toolbutton'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 18
- DefaultFont.Name = 'Webdings'
- DefaultFont.Style = [fsBold]
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = False
- RepeatMode = False
- RepeatInterval = 100
- Transparent = False
- Flat = True
- AllowAllUp = False
- Down = False
- GroupIndex = 0
- Caption = 'r'
- NumGlyphs = 2
- Spacing = 0
- OnClick = bDeletePresetClick
- end
- object lColors: TLabel
- Left = 44
- Top = 128
- Width = 34
- Height = 13
- Alignment = taRightJustify
- Caption = 'Colors:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object lFormat: TLabel
- Left = 14
- Top = 100
- Width = 63
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Format:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object lSize: TLabel
- Left = 16
- Top = 155
- Width = 62
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Size:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object lSizeValue: TLabel
- Left = 84
- Top = 155
- Width = 23
- Height = 13
- Caption = ':: Kb'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object cbPresets: TbsSkinComboBox
- Left = 80
- Top = 8
- Width = 144
- Height = 20
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'comboboxlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AlphaBlend = False
- AlphaBlendValue = 0
- AlphaBlendAnimation = False
- ListBoxUseSkinFont = True
- ImageIndex = -1
- ListBoxCaptionMode = False
- ListBoxDefaultFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultFont.Color = clWindowText
- ListBoxDefaultFont.Height = 14
- ListBoxDefaultFont.Name = 'Tahoma'
- ListBoxDefaultFont.Style = []
- ListBoxDefaultCaptionFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultCaptionFont.Color = clWindowText
- ListBoxDefaultCaptionFont.Height = 14
- ListBoxDefaultCaptionFont.Name = 'Tahoma'
- ListBoxDefaultCaptionFont.Style = []
- ListBoxDefaultItemHeight = 20
- ListBoxCaptionAlignment = taLeftJustify
- TabStop = True
- ItemIndex = -1
- DropDownCount = 8
- HorizontalExtent = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 14
- Font.Name = 'Tahoma'
- Font.Style = []
- Sorted = False
- Style = bscbFixedStyle
- OnChange = cbPresetsChange
- end
- object Image1: TAMImageView
- Left = 10
- Top = 186
- Width = 223
- Height = 273
- Cursor = crDefault
- Background = clSilver
- Ctl3D = False
- ParentCtl3D = False
- BorderStyle = bsNone
- OnAttemptToMouseWheel = AMImageView2AttemptToMouseWheel
- SelectionOptions = [iesoSizeable, iesoMoveable]
- Enabled = False
- TabOrder = 1
- OnMouseDown = AMImageView2MouseDown
- OnMouseMove = AMImageView2MouseMove
- OnMouseUp = AMImageView2MouseUp
- OnKeyDown = AMImageView2KeyDown
- end
- object eWidth: TbsSkinSpinEdit
- Left = 80
- Top = 40
- Width = 81
- Height = 20
- TabOrder = 2
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'spinedit'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = False
- ValueType = vtInteger
- MinValue = 20
- MaxValue = 1000
- Value = 300
- Increment = 1
- EditorEnabled = True
- MaxLength = 0
- OnChange = eWidthChange
- OnEditExit = eWidthEditExit
- end
- object eHeight: TbsSkinSpinEdit
- Left = 80
- Top = 68
- Width = 81
- Height = 20
- TabOrder = 3
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'spinedit'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = False
- ValueType = vtInteger
- MinValue = 20
- MaxValue = 1000
- Value = 300
- Increment = 1
- EditorEnabled = True
- MaxLength = 0
- OnChange = eWidthChange
- OnEditExit = eWidthEditExit
- end
- object cbColorsBMP: TbsSkinComboBox
- Left = 80
- Top = 125
- Width = 79
- Height = 20
- TabOrder = 4
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'comboboxlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AlphaBlend = False
- AlphaBlendValue = 0
- AlphaBlendAnimation = False
- ListBoxUseSkinFont = True
- ImageIndex = -1
- ListBoxCaptionMode = False
- ListBoxDefaultFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultFont.Color = clWindowText
- ListBoxDefaultFont.Height = 13
- ListBoxDefaultFont.Name = 'Tahoma'
- ListBoxDefaultFont.Style = []
- ListBoxDefaultCaptionFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultCaptionFont.Color = clWindowText
- ListBoxDefaultCaptionFont.Height = 14
- ListBoxDefaultCaptionFont.Name = 'Tahoma'
- ListBoxDefaultCaptionFont.Style = []
- ListBoxDefaultItemHeight = 20
- ListBoxCaptionAlignment = taLeftJustify
- TabStop = True
- Text = '262144'
- Items.Strings = (
- '262144'
- '65536'
- '65000'
- '4096'
- '256'
- '4'
- '2')
- ItemIndex = 0
- DropDownCount = 7
- HorizontalExtent = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- Sorted = False
- Style = bscbFixedStyle
- OnChange = cbColorsBMPChange
- end
- object cbFormats: TbsSkinComboBox
- Left = 80
- Top = 96
- Width = 80
- Height = 20
- TabOrder = 5
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'comboboxlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AlphaBlend = False
- AlphaBlendValue = 0
- AlphaBlendAnimation = False
- ListBoxUseSkinFont = True
- ImageIndex = -1
- ListBoxCaptionMode = False
- ListBoxDefaultFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultFont.Color = clWindowText
- ListBoxDefaultFont.Height = 13
- ListBoxDefaultFont.Name = 'Tahoma'
- ListBoxDefaultFont.Style = []
- ListBoxDefaultCaptionFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultCaptionFont.Color = clWindowText
- ListBoxDefaultCaptionFont.Height = 14
- ListBoxDefaultCaptionFont.Name = 'Tahoma'
- ListBoxDefaultCaptionFont.Style = []
- ListBoxDefaultItemHeight = 20
- ListBoxCaptionAlignment = taLeftJustify
- TabStop = True
- Text = 'JPEG'
- Items.Strings = (
- 'JPEG'
- 'GIF'
- 'BMP')
- ItemIndex = 0
- DropDownCount = 3
- HorizontalExtent = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- Sorted = False
- Style = bscbFixedStyle
- OnChange = cbFormatsChange
- end
- object cbColorsGIF: TbsSkinComboBox
- Left = 80
- Top = 125
- Width = 79
- Height = 20
- TabOrder = 7
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'comboboxlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AlphaBlend = False
- AlphaBlendValue = 0
- AlphaBlendAnimation = False
- ListBoxUseSkinFont = True
- ImageIndex = -1
- ListBoxCaptionMode = False
- ListBoxDefaultFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultFont.Color = clWindowText
- ListBoxDefaultFont.Height = 13
- ListBoxDefaultFont.Name = 'Tahoma'
- ListBoxDefaultFont.Style = []
- ListBoxDefaultCaptionFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultCaptionFont.Color = clWindowText
- ListBoxDefaultCaptionFont.Height = 14
- ListBoxDefaultCaptionFont.Name = 'Tahoma'
- ListBoxDefaultCaptionFont.Style = []
- ListBoxDefaultItemHeight = 20
- ListBoxCaptionAlignment = taLeftJustify
- TabStop = True
- Text = '256'
- Items.Strings = (
- '256'
- '128'
- '64'
- '32'
- '16'
- '8'
- '4'
- '2')
- ItemIndex = 0
- DropDownCount = 8
- HorizontalExtent = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- Sorted = False
- Style = bscbFixedStyle
- OnChange = cbColorsBMPChange
- end
- object cntJPEGQuality: TAMContainer
- Left = 16
- Top = 121
- Width = 211
- Height = 28
- DoubleBuffered = False
- object lQuality: TLabel
- Left = 0
- Top = 6
- Width = 62
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Quality:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object lQualityValue: TLabel
- Left = 170
- Top = 6
- Width = 12
- Height = 13
- Caption = '10'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object gQuality: TbsSkinSlider
- Left = 61
- Top = 1
- Width = 103
- Height = 27
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'slider'
- BusinessSkinForm = SkinForm
- Color = clSilver
- Options = [soSmooth]
- ParentColor = False
- TabStop = False
- Value = 70
- Transparent = True
- UseSkinThumb = True
- OnChange = gQualityChange
- OnChanged = gQualityChanged
- end
- end
- end
- object cntA: TAMContainer
- Left = 246
- Top = 65
- Width = 502
- Height = 461
- Align = alClient
- Color = 14211288
- OnResize = cntAResize
- DoubleBuffered = False
- object BevelA: TbsSkinBevel
- Left = 1
- Top = 3
- Width = 537
- Height = 417
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'bevel'
- DividerMode = False
- end
- object sbhScrollBar: TbsSkinScrollBar
- Left = 283
- Top = 318
- Width = 200
- Height = 20
- TabOrder = 0
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'hscrollbar'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Arial'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- Both = False
- BothMarkerWidth = 0
- BothSkinDataName = 'bothhscrollbar'
- CanFocused = False
- Kind = sbHorizontal
- PageSize = 0
- Min = 0
- Max = 0
- Position = 0
- SmallChange = 1
- LargeChange = 1
- AutoLargeChange = False
- OnMouseDown = sbvScrollBarMouseDown
- OnMouseUp = sbvScrollBarMouseUp
- end
- object sbvScrollBar: TbsSkinScrollBar
- Left = 458
- Top = 11
- Width = 24
- Height = 289
- TabOrder = 1
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'vscrollbar'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Arial'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- Both = False
- BothMarkerWidth = 0
- BothSkinDataName = 'bothhscrollbar'
- CanFocused = False
- Kind = sbVertical
- PageSize = 0
- Min = 0
- Max = 0
- Position = 0
- SmallChange = 1
- LargeChange = 1
- AutoLargeChange = False
- OnMouseDown = sbvScrollBarMouseDown
- OnMouseUp = sbvScrollBarMouseUp
- end
- object sbvScrollBar2: TbsSkinScrollBar
- Left = 434
- Top = 11
- Width = 24
- Height = 289
- TabOrder = 2
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'vscrollbar'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Arial'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- Both = False
- BothMarkerWidth = 0
- BothSkinDataName = 'bothhscrollbar'
- CanFocused = False
- Kind = sbVertical
- PageSize = 0
- Min = 0
- Max = 0
- Position = 0
- SmallChange = 1
- LargeChange = 1
- OnChange = sbvScrollBar2Change
- AutoLargeChange = False
- OnMouseDown = sbvScrollBarMouseDown
- OnMouseUp = sbvScrollBarMouseUp
- end
- object sbhScrollBar2: TbsSkinScrollBar
- Left = 283
- Top = 302
- Width = 200
- Height = 20
- TabOrder = 3
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'hscrollbar'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Arial'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- Both = False
- BothMarkerWidth = 0
- BothSkinDataName = 'bothhscrollbar'
- CanFocused = False
- Kind = sbHorizontal
- PageSize = 0
- Min = 0
- Max = 0
- Position = 0
- SmallChange = 1
- LargeChange = 1
- OnChange = sbhScrollBar2Change
- AutoLargeChange = False
- OnMouseDown = sbvScrollBarMouseDown
- OnMouseUp = sbvScrollBarMouseDown
- end
- object AMImageView2: TAMImageView
- Left = 49
- Top = 115
- Width = 40
- Height = 186
- Cursor = crDefault
- Background = clSilver
- Ctl3D = False
- ParentCtl3D = False
- BorderStyle = bsNone
- OnAttemptToMouseWheel = AMImageView2AttemptToMouseWheel
- SelectionOptions = [iesoSizeable, iesoMoveable]
- BackgroundStyle = iebsGradient
- Visible = False
- TabOrder = 4
- OnMouseDown = AMImageView2MouseDown
- OnMouseMove = AMImageView2MouseMove
- OnMouseUp = AMImageView2MouseUp
- OnKeyDown = AMImageView2KeyDown
- end
- object AMImageView1: TAMImageView
- Left = 4
- Top = 39
- Width = 40
- Height = 170
- Cursor = 1782
- Background = clSilver
- Ctl3D = False
- ParentCtl3D = False
- BorderStyle = bsNone
- HScrollBar = sbhScrollBar
- VScrollBar = sbvScrollBar
- ZoomFilter = rfNearest
- SelectionOptions = [iesoSizeable, iesoMoveable]
- BackgroundStyle = iebsGradient
- OnSelectionChanging = AMImageView1SelectionChanging
- OnAfterSelectionChange = AMImageView1AfterSelectionChange
- OnScrollBarChange = AMImageView1ScrollBarChange
- TabOrder = 5
- OnMouseUp = AMImageView1MouseUp
- end
- object cntTools: TAMContainer
- Left = 0
- Top = 424
- Width = 502
- Height = 37
- Align = alBottom
- Color = clSilver
- OnResize = cntToolsResize
- DoubleBuffered = False
- object bLeft: TAMDownedButton
- Left = 5
- Top = 4
- Width = 23
- Height = 22
- Hint = 'Rotate Left'
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'toolbutton'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- RepeatMode = False
- RepeatInterval = 100
- Transparent = False
- Flat = True
- AllowAllUp = False
- ShowHint = True
- Down = False
- GroupIndex = 0
- NumGlyphs = 1
- Spacing = 1
- Alignment = taLeftJustify
- ShowText = False
- OnBtnClick = bLeftBtnClick
- AutoSize = False
- end
- object bRight: TAMDownedButton
- Left = 29
- Top = 4
- Width = 23
- Height = 22
- Hint = 'Rotate Right'
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'toolbutton'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- RepeatMode = False
- RepeatInterval = 100
- Transparent = False
- Flat = True
- AllowAllUp = False
- ShowHint = True
- Down = False
- GroupIndex = 0
- NumGlyphs = 1
- Spacing = 1
- Alignment = taLeftJustify
- ShowText = False
- OnBtnClick = bRightBtnClick
- AutoSize = False
- end
- object cntZoom: TAMContainer
- Left = 206
- Top = 0
- Width = 296
- Height = 37
- Align = alRight
- Color = 14474975
- DoubleBuffered = False
- object bZoomIn: TAMDownedButton
- Left = 266
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Zoom In'
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'toolbutton'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- RepeatMode = False
- RepeatInterval = 100
- Transparent = False
- Flat = True
- AllowAllUp = False
- ShowHint = True
- Down = False
- GroupIndex = 0
- NumGlyphs = 1
- Spacing = 1
- Alignment = taLeftJustify
- ShowText = True
- OnBtnClick = bZoomInBtnClick
- AutoSize = False
- end
- object bZoomOut: TAMDownedButton
- Left = 98
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Zoom Out'
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'toolbutton'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- RepeatMode = False
- RepeatInterval = 100
- Transparent = False
- Flat = True
- AllowAllUp = False
- ShowHint = True
- Down = False
- GroupIndex = 0
- NumGlyphs = 1
- Spacing = 1
- Alignment = taLeftJustify
- ShowText = True
- OnBtnClick = bZoomOutBtnClick
- AutoSize = False
- end
- object lZoomPercent: TLabel
- Left = 64
- Top = 7
- Width = 29
- Height = 13
- Alignment = taRightJustify
- Caption = '100%'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object bZoomFit: TAMDownedButton
- Left = 31
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Zoom Out'
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'toolbutton'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- RepeatMode = False
- RepeatInterval = 100
- Transparent = False
- Flat = True
- AllowAllUp = False
- ShowHint = True
- Down = False
- GroupIndex = 0
- NumGlyphs = 1
- Spacing = 1
- Alignment = taLeftJustify
- ShowText = True
- OnBtnClick = bZoomFitBtnClick
- AutoSize = False
- end
- object bZoom100: TAMDownedButton
- Left = 5
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Zoom In'
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'toolbutton'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- RepeatMode = False
- RepeatInterval = 100
- Transparent = False
- Flat = True
- AllowAllUp = False
- ShowHint = True
- Down = False
- GroupIndex = 0
- NumGlyphs = 1
- Spacing = 1
- Alignment = taLeftJustify
- ShowText = True
- OnBtnClick = bZoom100BtnClick
- AutoSize = False
- end
- object slZoom: TbsSkinSlider
- Left = 124
- Top = -1
- Width = 141
- Height = 28
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'slider'
- Increment = 1
- MaxValue = 18
- Options = [soShowPoints, soSmooth]
- Value = 6
- Transparent = True
- UseSkinThumb = True
- OnChange = slZoomChange
- end
- end
- object ProgressGauge: TbsSkinGauge
- Left = 56
- Top = 6
- Width = 133
- Height = 17
- TabOrder = 1
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'gaugestatus'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- VisibleOnlyIfWork = True
- ProgressText = 'Loading '
- ShowProgressText = True
- ShowPercent = True
- MinValue = 0
- MaxValue = 100
- Value = 50
- Vertical = False
- OnChangeValue = ProgressGaugeChangeValue
- end
- end
- object AMContainer1: TAMContainer
- Left = 136
- Top = 32
- Width = 234
- Height = 223
- Color = clSilver
- Visible = False
- OnResize = cntToolsResize
- DoubleBuffered = False
- object BevelA2: TbsSkinBevel
- Left = 11
- Top = 16
- Width = 208
- Height = 177
- Shape = bsFrame
- SkinDataName = 'bevel'
- DividerMode = False
- end
- object Label4: TLabel
- Left = 22
- Top = 12
- Width = 50
- Height = 13
- Caption = 'Enchance:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object lBrightness: TLabel
- Left = 20
- Top = 56
- Width = 50
- Height = 13
- Caption = 'Brightness'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object bResetValues: TAMDownedButton
- Left = 100
- Top = 23
- Width = 25
- Height = 21
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'toolbutton'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- RepeatMode = False
- RepeatInterval = 100
- Transparent = False
- Flat = False
- AllowAllUp = False
- Down = False
- GroupIndex = 0
- Glyph.Data = {
- 22030000424D22030000000000003600000028000000110000000B0000000100
- 200000000000EC020000120B0000120B00000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000003000000050000
- 0003000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000030000000D0000
- 00160000000D0000000300000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000030000000D0000
- 001E000000260000001E0000000D000000030000000000000000000000000000
- 00000000000000000000000000000000000000000000000000030000000D0000
- 001E000000FF0000002B000000280000001E0000000D00000003000000000000
- 00000000000000000000000000000000000000000000000000030000000D0000
- 001E000000FF80B08AFF000000FF0000002B000000280000001E0000000D0000
- 00030000000000000000000000000000000000000000000000030000000D0000
- 001E000000FFB7E4C1FFB7E4C1FF80B08AFF000000FF0000002B000000280000
- 001E0000000D0000000300000000000000000000000000000000000000050000
- 0013000000FFB7E4C1FFB7E4C1FFB7E4C1FFB7E4C1FF80B08AFF000000FF0000
- 00200000001E0000001300000005000000000000000000000000000000000000
- 0003000000FFDBF1E0FFDBF1E0FFDBF1E0FFDBF1E0FFDBF1E0FFDBF1E0FFB7E4
- C1FF000000FF0000000B00000008000000030000000000000000000000000000
- 0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
- 00FF000000FF000000FF000000FF000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000}
- NumGlyphs = 1
- Margin = 2
- Spacing = 0
- Alignment = taLeftJustify
- ShowText = False
- OnBtnClick = bResetValuesBtnClick
- AutoSize = False
- end
- object bContrastApply: TbsSkinSpeedButton
- Left = 129
- Top = 161
- Width = 75
- Height = 22
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = False
- RepeatMode = False
- RepeatInterval = 100
- Transparent = False
- Flat = False
- AllowAllUp = False
- Down = False
- GroupIndex = 0
- Caption = 'Apply'
- NumGlyphs = 2
- Spacing = 1
- end
- object lContrast: TLabel
- Left = 20
- Top = 98
- Width = 42
- Height = 13
- Caption = 'Contrast'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object eBrightness: TAMEditGauge
- Left = 157
- Top = 44
- Width = 40
- Height = 20
- Text = '0'
- ValueChange = eBrightnessValueChange
- Precision = 0
- MinValue = -100
- MaxValue = 100
- ChangeOnEnter = False
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- UseSkinFont = True
- DefaultWidth = 0
- DefaultHeight = 20
- ButtonMode = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'editlight'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- object slBrightness: TbsSkinSlider
- Left = 21
- Top = 71
- Width = 195
- Height = 28
- TabOrder = 1
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'slider'
- Increment = 1
- MinValue = -100
- Options = [soShowPoints, soSmooth]
- Transparent = True
- UseSkinThumb = True
- OnChange = slBrightnessChange
- end
- object eContrast: TAMEditGauge
- Left = 157
- Top = 107
- Width = 40
- Height = 20
- Text = '0'
- ValueChange = eContrastValueChange
- Precision = 0
- MinValue = -100
- MaxValue = 100
- ChangeOnEnter = False
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- UseSkinFont = True
- DefaultWidth = 0
- DefaultHeight = 20
- ButtonMode = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'editlight'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- end
- object slContrast: TbsSkinSlider
- Left = 21
- Top = 131
- Width = 195
- Height = 28
- TabOrder = 3
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'slider'
- Increment = 1
- MinValue = -100
- Options = [soShowPoints, soSmooth]
- Transparent = True
- UseSkinThumb = True
- OnChange = slBrightnessChange
- end
- end
- end
- object ImageEnProc: TImageEnProc
- AttachedImageEn = AMImageView1
- Background = clSilver
- PreviewFont.Charset = DEFAULT_CHARSET
- PreviewFont.Color = clWindowText
- PreviewFont.Height = -11
- PreviewFont.Name = 'Tahoma'
- PreviewFont.Style = []
- Left = 487
- Top = 2
- end
- object SkinForm: TbsBusinessSkinForm
- GradientStartColor = clBlack
- GradientEndColor = clBlack
- DrawBackground = True
- ShowIcon = False
- MaximizeOnFullScreen = False
- AlphaBlend = False
- AlphaBlendAnimation = False
- AlphaBlendValue = 200
- ShowObjectHint = False
- MenusAlphaBlend = False
- MenusAlphaBlendAnimation = False
- MenusAlphaBlendValue = 200
- DefCaptionFont.Charset = DEFAULT_CHARSET
- DefCaptionFont.Color = clBtnText
- DefCaptionFont.Height = 14
- DefCaptionFont.Name = 'Tahoma'
- DefCaptionFont.Style = [fsBold]
- DefInActiveCaptionFont.Charset = DEFAULT_CHARSET
- DefInActiveCaptionFont.Color = clBtnShadow
- DefInActiveCaptionFont.Height = 14
- DefInActiveCaptionFont.Name = 'Tahoma'
- DefInActiveCaptionFont.Style = [fsBold]
- DefMenuItemHeight = 20
- DefMenuItemFont.Charset = DEFAULT_CHARSET
- DefMenuItemFont.Color = clWindowText
- DefMenuItemFont.Height = 14
- DefMenuItemFont.Name = 'Tahoma'
- DefMenuItemFont.Style = []
- UseDefaultSysMenu = True
- SkinData = SkinDataModule.SkinDataDlg
- MinHeight = 576
- MinWidth = 840
- Magnetic = False
- MagneticSize = 5
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biRollUp]
- Left = 251
- Top = 71
- end
- object fImageEnIO: TImageEnIO
- PreviewFont.Charset = DEFAULT_CHARSET
- PreviewFont.Color = clWindowText
- PreviewFont.Height = -11
- PreviewFont.Name = 'MS Sans Serif'
- PreviewFont.Style = []
- Left = 520
- end
- object SaveDialog1: TSaveDialog
- Filter = '*.JPG|*.jpg'
- FilterIndex = 0
- Left = 160
- Top = 536
- end
- end
-